home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbfloat / parent.frm < prev   
Text File  |  1995-09-06  |  1KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form parent 
  3.    BackColor       =   &H00808000&
  4.    Caption         =   "Parent"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1650
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1050
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1305
  15.    Width           =   7485
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Exit"
  18.       Height          =   375
  19.       Left            =   270
  20.       TabIndex        =   1
  21.       Top             =   720
  22.       Width           =   2265
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Show floating window"
  26.       Height          =   405
  27.       Left            =   270
  28.       TabIndex        =   0
  29.       Top             =   180
  30.       Width           =   2265
  31.    End
  32. End
  33. Sub Command1_Click ()
  34.  
  35.   float.Show
  36.  
  37. End Sub
  38.  
  39. Sub Command2_Click ()
  40.  
  41.   Unload parent
  42.   End
  43.  
  44. End Sub
  45.  
  46. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  47.  
  48.   If Not FloatUnloaded Then
  49.     Unload float
  50.   End If
  51.  
  52. End Sub
  53.  
  54.